﻿Imports System.Data.OleDb
Public Class ThuNhapDAO
    Shared conn_str As String = My.Settings.ConnectionString
    Shared Function GetAll() As DataTable
        Dim dt As New DataTable
        Dim query As String = "select * from thunhap"
        Try
            Dim adapter As New OleDbDataAdapter(query, conn_str)
            adapter.Fill(dt)
        Catch Loi As CustomException.MyException
            Loi.Show(query, conn_str)
        End Try
        Return dt
    End Function

End Class
